home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / turbot1.arc / PROG4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-15  |  512 b   |  19 lines
  1. PROGRAM PROG4;
  2. {$U+
  3.  
  4.     New Topics: Input using ReadLn statement
  5.                 Integer variables
  6.                 VAR Declarations
  7.  
  8. }
  9.  
  10. VAR
  11.   Number   : Integer;
  12.  
  13. BEGIN
  14.   Write('Enter a number (no decimals please): ');
  15.   ReadLn(Number);
  16.   WriteLn;                        { Display one blank line }
  17.   WriteLn('Number: ',Number);     { Display the number entered }
  18. END.
  19.